home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb9.arc / FLOAT.PAS < prev    next >
Pascal/Delphi Source File  |  1984-07-04  |  389b  |  20 lines
  1. program Float;
  2. { Test range of floating point numbers.
  3. { Author: Alan Miller
  4. {         Taken from 'Pascal Programs for Scientists and Engineers'
  5. { Entered by Danny Cavasos      June 1984}
  6. var
  7.   i:integer;
  8.   x:real;
  9. begin
  10.   writeln;
  11.   x:=1.0e-4/3.0;
  12.   for i:=1 to 40 do
  13.     begin
  14.       write('x=',x);
  15.       x:=0.1*x;
  16.       writeln(' x=',x);
  17.       x:=0.1*x
  18.     end;
  19. end.
  20.